home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / xchar2b.t < prev    next >
Text File  |  1990-06-01  |  349b  |  7 lines
  1. (herald xchar2b (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XCHAR2B) (CONS 'XCHAR2BP (MAKE-BYTEV 4)))
  3. (DEFINE (XCHAR2B-BYTE1 X) (MREF-8-U (CHK-XCHAR2BP X) 0))
  4. (DEFINE (XCHAR2B-BYTE1! X Y) (SET-MREF-8-U! (CHK-XCHAR2BP X) 0 Y))
  5. (DEFINE (XCHAR2B-BYTE2 X) (MREF-8-U (CHK-XCHAR2BP X) 1))
  6. (DEFINE (XCHAR2B-BYTE2! X Y) (SET-MREF-8-U! (CHK-XCHAR2BP X) 1 Y))
  7.